ALLOC.PAS[S1,ALS] - www.SailDart.org

perm filename ALLOC.PAS[S1,ALS] blob sn#465802 filedate 1979-07-26 generic text, type T, neo UTF8

(*$A+,D+*)
program TestOfPCPASCVarAllocation;

var I :  integer;

function func(J : integer) :  integer;
   begin
   func := J;
   end;

procedure proca(J : integer);
   begin
   J := 1;
   end;

procedure procb(J : integer; var K : integer);
   begin
   K := J;
   end;

begin
I := 1;
I := func(I);
proca(I);
procb(1,I);
end.